Optional Testing-Controls.f

Requires OpenGL
Requires Kagi
Requires Sora
Requires GL-Tools

only Forth Definitions


: box
   gl-texture gl-disable
  GL_QUADS glBegin
    glTexCoord2i( 100 100 )
    glVertex2i( 0 0 )
    glTexCoord2i( 16 100 )
    glVertex2i( 20 0 )
    glTexCoord2i( 16 16  )
    glVertex2i( 20 20 )
    glTexCoord2i( 100 16 )
    glVertex2i( 0 20 )
  glEnd ;


: .name   body> >name count 16 min type space ;

\ : .children   climb:[ .name ;] ;

